home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #2
/
Commodore_Disk_User_Vol.1_2_1988_-.d64
/
noluxe menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
58 lines
100 poke53280,0:poke53281,0:poke2,111
110 print "[147]";
115 print" [172][162][162][162][162][162][162][162][162][162][162][162]"
120 print" [160][160] [172][190][162][162][146][162][162][162][162][162][162][162][162][162][162][191][162][162][188][146][187]"
130 print" [160] [172][172][146][162] [146][162][187][146][187]"
140 print" [160] [188][188][162] [162][190][146][190]"
150 print" [160] [161][191][187][146][162][162][162][162][162][162][162][162][162][162][162][162][146][191][162][162][172][146][191][161]"
160 print" [160] [161][187][188][146][162][188][162][162][162][162][162][162][162][162][162][162][162][146][172][151][162][190] [146][161]"
170 print" [160][160] [161][146][144] [188][162][155][187] [152] [151] [162][162][146][144] [146][161]"
190 print" [161][146][144] [146][161]"
200 print" [161][146][144] [158][188][161][146][144] [129][172][187][149][160][187][160][172][160][187][156][172][160][187][154][161][162][146][144] [161][146][161]"
220 print" [161][146][144] [158][161][187][146][129][160][161][161][146][149][160][161][160][161][146][160][161][156][188][162][190][154][161][146][190][144] [161][146][161]"
240 print" [161][146][144] [158][190][188][129][160][191][191][146][149][160][188][146][187][188][162][190][156][161][146][160][161][154][188][162][146][144] [161][146][161]"
260 print" [161][146][144] [151][161][146][161]"
270 print" [161][146][144] [159][160][153][162][187][160][162][159][160][153][187][187][172][172][162][162][144] [151][161][146][161]"
280 print" [161][146][144] [159][160][153][161][161][161][146][159][160][153][161][161][172][190][146][144] [153][161][146][144] [151][161][146][161]"
300 print" [161][146][144] [159][160][153][172][146][190][161][162][146][161][161][161][161][146][144] [153][161][146][144] [151][161][146][161]"
320 print" [161][146][187][144] [159][160][153][190][144] [153][188][159][160][153][190][190][190][188][144] [153][188][144] [151][190][146][161]"
340 print" [161] [188][146][162][155][187][144] [151][162][162] [146][161]"
350 print" [161] [155] [152] [151] [188][146]"
360 print" [161] [155] [152] [151] "
370 print" [161] [155] [152] [151] [188][190][146][187][190][146][187]"
380 print" [161] [155] [152] [151] [162][146]"
390 print" [160][187] [155] [152] [151] [172][162]"
400 print" [188][162][155][187] [152] [151] [172][162][146][190][188][162] [172][146][190]"
450 print"[158] (c) flossoftware 1987[146]"
455 forwa=1to80:nextwa
460 print" press any key "
465 forwa=1to80:nextwa
470 getwa$:ifwa$=""then450
500 print "[147]":print:print " noluxe menu"
510 print:print "[159] 1. paint"
520 print:print "[156] 2. character editor"
530 print:print " 3. auto char generator"
540 print:print " 4. sprite editor"
550 print:print "[158] 5. basic listing generator"
560 print:print:print " enter option"
570 get wa$:if wa$=""then goto 570
571 wa=val(wa$)
575 if wa=1 then goto 600
580 if wa=2 then goto 610
582 if wa=3 then goto 620
585 if wa=4 then goto 630
590 if wa=5 then goto 640
595 goto 570
600 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe paint";chr$(34);",8"
601 goto 1000
610 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"character editor";chr$(34);",8"
611 goto 1000
620 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"auto character";chr$(34);",8"
621 goto 1000
630 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe sprite";chr$(34);",8"
631 goto 1000
640 printchr$(142)"[144]poke157,0:l[207]";chr$(34);"noluxe list";chr$(34);",8"
1000 print"[129] loading..............[144]"
1010 poke631,19:poke632,13
1100 poke633,asc("r"):poke634,asc("u"):poke635,asc("n"):poke636,13:poke198,6:end